home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nrpas13.zip / DF1DIM.DEM < prev    next >
Text File  |  1991-04-29  |  882b  |  46 lines

  1. PROGRAM d10r10(input,output);
  2. (* driver for routine DF1DIM *)
  3. CONST
  4.    ndim=3;
  5. TYPE
  6.    glnarray = ARRAY [1..ndim] OF real;
  7. VAR
  8.    i,j,ncom : integer;
  9.    p,xi : glnarray;
  10.    pcom,xicom : glnarray;
  11.  
  12. PROCEDURE dfunc(x : glnarray; VAR df : glnarray);
  13. VAR
  14.    i : integer;
  15. BEGIN
  16.    FOR i := 1 to 3 DO BEGIN
  17.       df[i] := sqr(x[i]-1.0)
  18.    END
  19. END;
  20.  
  21. (*$I MODFILE.PAS *)
  22. (*$I DF1DIM.PAS *)
  23.  
  24. FUNCTION fx(x: real): real;
  25. BEGIN
  26.    fx := df1dim(x)
  27. END;
  28.  
  29. (*$I SCRSHO.PAS *)
  30.  
  31. BEGIN
  32.    p[1] := 0.0; p[2] := 0.0; p[3] := 0.0;
  33.    ncom := ndim;
  34.    writeln;
  35.    writeln('Enter vector direction along which to');
  36.    writeln('plot the function. Minimum is in the');
  37.    writeln('direction 1.0 1.0 1.0 - enter x y z:');
  38.    read(xi[1],xi[2],xi[3]);
  39.    writeln;
  40.    FOR j := 1 to ndim DO BEGIN
  41.       pcom[j] := p[j];
  42.       xicom[j] := xi[j]
  43.    END;
  44.    scrsho
  45. END.
  46.